home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -serious- / wb / m2i5_78 / m2iupd5_78 / updatem2i < prev    next >
Text File  |  1999-07-12  |  2KB  |  104 lines
  1. ; M2I 5.77 Installer Script (Update)
  2. ; $VER: 5.77 (22-May-97)
  3. ; Written by Thomas PIMMEL
  4.  
  5. (set #welcome-message
  6. (cat    "\nM2I 5.78 (c) Thomas PIMMEL 1991-1999\n"
  7.     "Update 5.77 -> 5.78"))
  8.  
  9. (set @default-dest "SYS:")
  10.  
  11.  
  12. (if (= @language "français")
  13.  (
  14.     (set #wrongversion
  15.     (cat    "Vous utilisez une vieille version du programme 'Installer'"
  16.         "\n\n Ce script a besoin de l'Installer 42.9 (minimum),\n\n"
  17.         "disponible sur Aminet (ftp.wustl.edu)"))
  18.  
  19.     (set #selectdir "\nChoisissez l'endroit où se trouve l'ancienne version de l'exécutable")
  20.  
  21.     (set #notfound "\nM2I5 non trouvé")
  22.  
  23.  )
  24.  
  25.  (
  26.     (set #wrongversion
  27.     (cat    "Your 'Installer' version on your amiga is too old!\n\nYou need "
  28.         "at least 'Installer' V42.9, available on Aminet (ftp.wustl.edu)"))
  29.  
  30.     (set #selectdir "\nChoose the directory of the executable old version")
  31.  
  32.     (set #notfound "\nM2I5 not found")
  33.  
  34.  )
  35. )
  36.  
  37.  
  38. ; ------------------------------------
  39. ; Check Installer & Kickstart Version
  40. ; ------------------------------------
  41.  
  42. (if (< @installer-version 2752521)
  43.   (
  44.     (message #wrongversion (all))
  45.     (exit (quiet))
  46.   )
  47. )
  48.  
  49. ; ------------------------------
  50. ; Where?
  51. ; ------------------------------
  52. (set destdir
  53.     (askdir
  54.     (prompt #selectdir)
  55.     (help @askdir-help)
  56.     (disk)
  57.     (default @default-dest)
  58.     )
  59. )
  60.  
  61. (set @default-dest destdir)
  62.  
  63. ; ------------------------------
  64. ; Verify
  65. ; ------------------------------
  66.  
  67. (if (not (exists (tackon destdir "M2I5") (NOREQ)))
  68.   (
  69.     (message #notfound (all))
  70.     (exit (quiet))
  71.   )
  72. )
  73.  
  74. ; ------------------------------
  75. ; Programms
  76. ; ------------------------------
  77.  
  78. (if    (OR (= (database "cpu") "68000")
  79.     (= (database "cpu") "68010"))
  80.  
  81. ;======== Copy 68000 Version
  82.     (
  83.         (copyfiles
  84.             (source "bin/M2I5_000")
  85.             (dest destdir)
  86.             (newname "M2I5")
  87.             (optional "force")
  88.  
  89.         )
  90.     )
  91. ;======== Copy 68020 Version
  92.     (
  93.         (copyfiles
  94.             (source "bin/M2I5_020")
  95.             (dest destdir)
  96.             (newname "M2I5")
  97.             (optional "force")
  98.         )
  99.     )
  100. )
  101.  
  102.  
  103.  
  104.